10 POKE53280,.:POKE53281,.:PRINTCHR$(147)CHR$(5)
12 REM ""   >GEMACHT VON LUKIAN<   ""
14 PRINT"[158]WAS IST DENN JETZT...?":TI$="000003":WAIT161,1:
16 FORI=54272TO54295:POKEI,2:NEXT:POKE54296,15:POKE54277,202:POKE54278,239
18 POKE54276,23:FORJ=1TO40:PRINT"[147][159]            ETWA SCHON WIEDER   ":NEXTJ
20 TI$="000003":WAIT161,1:PRINT"[157][157][157][157][157][157][157][157]"
22 FORZ=1TO1:A=1:FORY=1TO3:B=3 :POKE54273,A:FORI=1TO4:POKE54287,B:B=B*.99:NEXTI
24 FORJ=1TO3:PRINT"[147]          S C H L U S S  ? ?":NEXTJ:
26 PRINT"[145]          [154]>                  <[146]          "
28 A=A*.89 :NEXTY:FORI=1TO8 :POKE54287,B:B=B*1.095:NEXTI:NEXTZ:POKE54278,15
30 PRINT"[147]    DOCH!!   ES  I S T  WIRKLICH DAS[145][145][145][145][145]":TI$="000003":WAIT161,1:
32 PRINTCHR$(149):POKE53334,24
34 FORN=1TO16:POKE646,INT(RND(1)*16):PRINT"[147]          [176][195][195][195][174]        [176][174]
36 [153]"          PEEKORLENLENEXP        PEEKPEEK
38 PRINT"          [194][194]           [194][194]
40 [153]"          PEEK/LEN^ OR=LENLEN^ORLENLENEXPPEEKORLENLENLEN^
42 PRINT"          [194][176][195][189] [194][176][195][174][194][194][176][195][174][194][194][176][195][174][194]
44 [153]"          PEEKPEEK   PEEKPEEK PEEKPEEKPEEKPEEK PEEKPEEKPEEK/LENEXPPEEK
46 PRINT"          [194][194]   [194][194] [194][194][194][194] [194][194][194][176][195][195][189]
48 [153]"          PEEK/LENLEN^PEEKPEEK PEEKPEEKPEEK/LENEXPPEEKPEEK/LENLEN^
50 PRINT"          [173][195][195][195][189][173][189] [173][189][173][195][195][195][189][173][195][195][195][189][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":NEXTN
52 TI$="000003":WAIT161,1:POKE53334,21: PRINTCHR$(30):
54 :FS=55296:SP=40:FE=FS+SP:FB=PEEK(53281):FORX=0TO22
56 FORY=0TO24*40STEP40:POKEFS+Y+X,FB:POKEFE+Y-X,FB:NEXTY,X:SYS58253:END